home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_303_EachMenu < prev    next >
Encoding:
Text File  |  1990-03-23  |  2.0 KB  |  97 lines

  1. %case buildOrder%
  2.     %if main|hierarchical%
  3.         %if menuname = Apple%
  4.         %elsif menuname = File%
  5.             {    %menuname%M.p%        %}
  6.         %elsif menuname = Font%
  7.             {    %menuname%M.p%        %}
  8.         %else%
  9.             {    %menuname%M.p%        %}
  10.         %endif%
  11.     %endif%
  12. %case sourcefile%
  13.     %if main|hierarchical%
  14.         %if menuname = Apple%
  15.         %elsif menuname = File%
  16.             %genfile Menu.File menuname+M%
  17.         %elsif menuname = Font%
  18.             %genfile Menu.Font menuname+M%
  19.         %else%
  20.             %genfile Menu menuname+M%
  21.         %endif%
  22.     %endif%
  23. %case uses%
  24.     %if main|hierarchical%
  25.         %if not menuname = Apple%
  26.             %menuname%M,
  27.         %end if%
  28.     %endif%
  29. %case get%
  30.     %MenuName%Menu    := GetMenu (%MenuName%ID);
  31.     %if menuname = Apple%
  32.         AddResMenu (%MenuName%Menu, 'DRVR');
  33.     %elsif menuname = Font%
  34.         AddResMenu (%MenuName%Menu, 'FONT');
  35.     %end if%
  36. %case insert%
  37.     %if main%
  38.         InsertMenu (%MenuName%Menu, 0);
  39.     %elsif hierarchical%
  40.         InsertMenu (%MenuName%Menu, -1);
  41.     %endif%
  42. %case initTitles%
  43.     %if main|hierarchical%
  44.         %if not menuname = Apple%
  45.             Init%MenuName%M;
  46.         %end if%
  47.     %endif%
  48. %case doApple%
  49.     %if menuname = Apple%
  50.         %for each menuitem gen doItem%
  51.         {----------}
  52.         Procedure DoApple (itemNr:    integer);
  53.         var
  54.             name:            Str255;
  55.             refNum:            integer;
  56.         Begin
  57.             case itemNr of
  58.                 %for each menuitem gen handleItem%
  59.                 otherwise begin
  60.                         GetItem (AppleMenu, itemNr, name);
  61.                         refNum := OpenDeskAcc (name);
  62.                     end;
  63.             end; {case}
  64.         End; {DoApple}
  65.  
  66.     %endif%
  67. %case dispatch%
  68.     %if main|hierarchical%
  69.         %if menuname = Font%
  70.             %MenuName%ID:
  71.                 Choose%MenuName% (itemNr);
  72.         %else%
  73.             %MenuName%ID:
  74.                 Do%MenuName% (itemNr);
  75.         %endif%
  76.     %endif%
  77. %case menuHandle%
  78.     %MenuName%Menu:%    %MenuHandle;
  79. %case externmenuhandle%
  80.     %MenuName%Menu:%    %MenuHandle;
  81. %case menuID%
  82. %case defineitem%
  83.     %MenuName%ID%    %= %MenuID%;
  84.     %for each menuItem gen define%
  85. %case enable%
  86.     %if menuname = File%
  87.         menu := FileMenu;
  88.         %for each menuItem gen enableFile%
  89.  
  90.     %elsif menuname = Edit%
  91.         menu := EditMenu;
  92.         if isFront then begin
  93.             %for each menuItem gen enableEdit%
  94.         end;
  95.         EnableTitle (EditMenu,     isFront);
  96.  
  97.     %endif%